$file = "normalized_frma.txt";
open(BUFF,$file);
$file1 = "/data1/bsi/bioinf_int/s106381.borawork/data_HTHGU/platforms/GPL96.annot";
open(BUFF1,$file1);
while($line = <BUFF>)
{
	chomp $line;
	@array = split("\t",$line);
	$hash1{$array[0]} = $line;

}
$line = <BUFF1>;
while($line = <BUFF1>)
{
        chomp $line;
        @array = split("\t",$line);
        

}

